home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / matops.dia.ref < prev    next >
Text File  |  1999-09-16  |  4KB  |  187 lines
  1.  
  2. //insertion
  3.  
  4. v=[1 2 3];
  5.  
  6. v(2)=3;if or(v<>[1 3 3]) then bugmes();quit;end
  7.  
  8. v(4)=-5;if or(v<>[1 3 3 -5]) then bugmes();quit;end
  9.  
  10. v([1 4])=[2 5];if or(v<>[2 3 3 5]) then bugmes();quit;end
  11.  
  12. v([1 1])=[2 5];if or(v<>[5 3 3 5]) then bugmes();quit;end
  13.  
  14. v([1 1 1 1 1 1])=[2 5 6 7 8 9];if or(v<>[9 3 3 5]) then bugmes();quit;end
  15.  
  16. v([4 2])=[8 5];if or(v<>[9 5 3 8]) then bugmes();quit;end
  17.  
  18.  
  19. v=[1 2 3];
  20.  
  21. v(2,4)=10;if or(v<>[1 2 3 0;0 0 0 10]) then bugmes();quit;end
  22.  
  23. v([2 2],4)=[10;20];if or(v<>[1 2 3 0;0 0 0 20]) then bugmes();quit;end
  24.  
  25. v([2 1],4)=[10;20];if or(v<>[1 2 3 20;0 0 0 10]) then bugmes();quit;end
  26.  
  27. v([2 2 2],4)=[10;20;30];if or(v<>[1 2 3 20;0 0 0 30]) then bugmes();quit;end
  28.  
  29.  
  30. v=[1 2 3;0 0 10];
  31.  
  32. v(1,[1 1 1 1])=1:4;;if or(v<>[4 2 3;0 0 10]) then bugmes();quit;end
  33.  
  34. v([2 2],[1 1 1 1])=[1:4;2:5];if or(v<>[4 2 3;5 0 10]) then bugmes();quit;end
  35.  
  36. v(3,4)=7;if or(v<>[4 2 3 0;5 0 10 0;0 0 0 7]) then bugmes();quit;end
  37.  
  38.  
  39. v=[];
  40.  
  41. v(5)=1;if or(v<>[0;0;0;0;1]) then bugmes();quit;end
  42.  
  43. v(2)=4;if or(v<>[0;4;0;0;1]) then bugmes();quit;end
  44.  
  45.  
  46. v=[1 2 3;4 5 6];
  47.  
  48. v(:,1)=[4;1];if or(v<>[4 2 3;1 5 6]) then bugmes();quit;end
  49.  
  50. v(:,[1 1])=[4 5;1 2];if or(v<>[5 2 3;2 5 6]) then bugmes();quit;end
  51.  
  52. v(:,[3 1])=[4 5;1 2];if or(v<>[5 2 4;2 5 1]) then bugmes();quit;end
  53.  
  54. v(:,[3 3 3 3])=[4 5 6 7;1 2 3 4];if or(v<>[5 2 7;2 5 4]) then bugmes();quit;end
  55.  
  56.  
  57. v=[1 2 3;4 5 6];
  58.  
  59. v(1,:)=[2 3 4];if or(v<>[2 3 4;4 5 6]) then bugmes();quit;end
  60.  
  61. v([1 1],:)=[2 3 4;4 5 6];if or(v<>[4 5 6;4 5 6]) then bugmes();quit;end
  62.  
  63. v([2 2 2 2],:)=[2 3 4;4 5 6;7 8 9;10 11 12];
  64.  
  65. if or(v<>[4 5 6;10 11 12]) then bugmes();quit;end
  66.  
  67.  
  68. v=[1 2 3];
  69.  
  70. v(2)=[];if or(v<>[1 3]) then bugmes();quit;end
  71.  
  72. v=[1 2 3];
  73.  
  74. v([3 2])=[];if v<>1 then bugmes();quit;end
  75.  
  76.  
  77. v=[1 2 3]';
  78.  
  79. v(2)=[];if or(v<>[1 3]') then bugmes();quit;end
  80.  
  81. v=[1 2 3]';
  82.  
  83. v([3 2])=[];if v<>1 then bugmes();quit;end
  84.  
  85.  
  86. v=[1 2 3;4 5 6];
  87.  
  88. v(1,:)=[];if or(v<>[4 5 6]);then bugmes();quit;end
  89.  
  90. v=[1 2 3;4 5 6];
  91.  
  92. v(:,[3 2])=[];if or(v<>[1;4]);then bugmes();quit;end
  93.  
  94. //======================
  95.  
  96. v=[1 2 3];
  97.  
  98. v(2)=%i;if or(v<>[1 %i 3]) then bugmes();quit;end
  99.  
  100. v(4)=-5;if or(v<>[1 %i 3 -5]) then bugmes();quit;end
  101.  
  102. v([1 4])=[2*%i 5];if or(v<>[2*%i %i 3 5]) then bugmes();quit;end
  103.  
  104. v([1 1])=[2 5*%i];if or(v<>[5*%i %i 3 5]) then bugmes();quit;end
  105.  
  106. v([1 1 1 1 1 1])=[2 5 6 7 8 9];if or(v<>[9 %i 3 5]) then bugmes();quit;end
  107.  
  108. v([4 2])=[8 5];if or(v<>[9 5 3 8]) then bugmes();quit;end
  109.  
  110.  
  111. v=[%i 2 3];
  112.  
  113. v(2,4)=10;if or(v<>[%i 2 3 0;0 0 0 10]) then bugmes();quit;end
  114.  
  115. v([2 2],4)=[10;20*%i];if or(v<>[%i 2 3 0;0 0 0 20*%i]) then bugmes();quit;end
  116.  
  117. v([2 1],4)=[10;20*%i];if or(v<>[%i 2 3 20*%i;0 0 0 10]) then bugmes();quit;end
  118.  
  119. v([2 2 2],4)=[10;20;30];if or(v<>[%i 2 3 20*%i;0 0 0 30]) then bugmes();quit;end
  120.  
  121.  
  122. v=[1 2 3;0 0 10*%i];
  123.  
  124. v(1,[1 1 1 1])=1:4;if or(v<>[4 2 3;0 0 10*%i]) then bugmes();quit;end
  125.  
  126. v([2 2],[1 1 1 1])=[1:4;2:5];if or(v<>[4 2 3;5 0 10*%i]) then bugmes();quit;end
  127.  
  128. v(3,4)=7;if or(v<>[4 2 3 0;5 0 10*%i 0;0 0 0 7]) then bugmes();quit;end
  129.  
  130.  
  131. v=[];
  132.  
  133. v(5)=%i;if or(v<>[0;0;0;0;%i]) then bugmes();quit;end
  134.  
  135. v(2)=4;if or(v<>[0;4;0;0;%i]) then bugmes();quit;end
  136.  
  137.  
  138. v=[1 2 3;4 5 6];
  139.  
  140. v(:,1)=[4;%i];if or(v<>[4 2 3;%i 5 6]) then bugmes();quit;end
  141.  
  142. v(:,[1 1])=[4 5;1 2];if or(v<>[5 2 3;2 5 6]) then bugmes();quit;end
  143.  
  144. v(:,[3 1])=[4 5;%i 2];if or(v<>[5 2 4;2 5 %i]) then bugmes();quit;end
  145.  
  146. v(:,[3 3 3 3])=[4 5 6 7;1 2 3 4];if or(v<>[5 2 7;2 5 4]) then bugmes();quit;end
  147.  
  148.  
  149. v=[%i 2 3;4 5 6];
  150.  
  151. v(1,:)=[2 3 4];if or(v<>[2 3 4;4 5 6]) then bugmes();quit;end
  152.  
  153. v([1 1],:)=[2 3 4;4*%i 5 6];if or(v<>[4*%i 5 6;4 5 6]) then bugmes();quit;end
  154.  
  155. v([2 2 2 2],:)=[2 3 4;4 5 6;7 8 9;10 11 12];
  156.  
  157. if or(v<>[4*%i 5 6;10 11 12]) then bugmes();quit;end
  158.  
  159.  
  160. v=[%i 2 3];
  161.  
  162. v(2)=[];if or(v<>[%i 3]) then bugmes();quit;end
  163.  
  164. v=[1 2 3*%i];
  165.  
  166. v([3 2])=[];if v<>1 then bugmes();quit;end
  167.  
  168.  
  169. v=[%i 2 3]';
  170.  
  171. v(2)=[];if or(v<>[%i 3]') then bugmes();quit;end
  172.  
  173. v=[1 2 3*%i]';
  174.  
  175. v([3 2])=[];if v<>1 then bugmes();quit;end
  176.  
  177.  
  178. v=[%i 2 3;4 5 6];
  179.  
  180. v(1,:)=[];if or(v<>[4 5 6]);then bugmes();quit;end
  181.  
  182. v=[%i 2 3;4 5 6];
  183.  
  184. v(:,[3 2])=[];if or(v<>[%i;4]);then bugmes();quit;end
  185.  
  186.  
  187.